1 TEXT:HOME:HTAB5:PRINT" REMPLISSAGE INSTANTANE";:B$="*.!-=_ù+^$":FORI=1TO10:A$=MID$(B$,I,1):GOSUB2:FORK=1TO500:NEXTK,I:HOME:HTAB15:PRINT"A TOI: ";:FORI=1TO2STEP0:HTAB25:GETA$:GOSUB2:I=1+(ASC(A$)=13):NEXT:HOME:VTAB22:END
2 POKE58,44:POKE59,254:POKE62,206:POKE63,7:POKE71,0:POKE72,0:X=ASC(A$)+128:POKE1064,X:POKE60,40:POKE61,4:POKE66,41:POKE67,4:CALL-327:RETURN